home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / yahtze1a / frmabout.frm (.txt) < prev    next >
Visual Basic Form  |  1999-09-26  |  5KB  |  149 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "About Yahtzee Deluxe"
  5.    ClientHeight    =   2415
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   3855
  9.    ControlBox      =   0   'False
  10.    Icon            =   "frmAbout.frx":0000
  11.    LinkTopic       =   "Form3"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    Picture         =   "frmAbout.frx":030A
  15.    ScaleHeight     =   2415
  16.    ScaleWidth      =   3855
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   1  'CenterOwner
  19.    Begin VB.Image imgOK 
  20.       Height          =   330
  21.       Left            =   240
  22.       Picture         =   "frmAbout.frx":1FFC
  23.       Top             =   1320
  24.       Width           =   1095
  25.    End
  26.    Begin VB.Label lblWebsite 
  27.       Appearance      =   0  'Flat
  28.       AutoSize        =   -1  'True
  29.       BackColor       =   &H80000005&
  30.       BackStyle       =   0  'Transparent
  31.       Caption         =   "Visit our website today!"
  32.       BeginProperty Font 
  33.          Name            =   "MS Sans Serif"
  34.          Size            =   12
  35.          Charset         =   0
  36.          Weight          =   700
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.       ForeColor       =   &H00FF0000&
  42.       Height          =   300
  43.       Left            =   525
  44.       TabIndex        =   4
  45.       ToolTipText     =   "Click Now"
  46.       Top             =   2040
  47.       Width           =   2805
  48.    End
  49.    Begin VB.Label lblEmail 
  50.       Appearance      =   0  'Flat
  51.       AutoSize        =   -1  'True
  52.       BackColor       =   &H80000005&
  53.       BackStyle       =   0  'Transparent
  54.       Caption         =   "E-Mail: sharmon@microtechcomputers.com"
  55.       ForeColor       =   &H80000008&
  56.       Height          =   195
  57.       Left            =   397
  58.       TabIndex        =   3
  59.       Top             =   1800
  60.       Width           =   3060
  61.    End
  62.    Begin VB.Label lblWinVer 
  63.       Appearance      =   0  'Flat
  64.       AutoSize        =   -1  'True
  65.       BackColor       =   &H80000005&
  66.       BackStyle       =   0  'Transparent
  67.       Caption         =   "Windows(tm) 95 / 98 / NT Version"
  68.       ForeColor       =   &H80000008&
  69.       Height          =   195
  70.       Left            =   1320
  71.       TabIndex        =   1
  72.       Top             =   960
  73.       Width           =   2445
  74.    End
  75.    Begin VB.Label lblCopyright 
  76.       Appearance      =   0  'Flat
  77.       AutoSize        =   -1  'True
  78.       BackColor       =   &H80000005&
  79.       BackStyle       =   0  'Transparent
  80.       Caption         =   "(C)1999 All Rights Reserved"
  81.       ForeColor       =   &H80000008&
  82.       Height          =   195
  83.       Left            =   1770
  84.       TabIndex        =   2
  85.       Top             =   1320
  86.       Width           =   1995
  87.    End
  88.    Begin VB.Label lblVersion 
  89.       Appearance      =   0  'Flat
  90.       AutoSize        =   -1  'True
  91.       BackColor       =   &H80000005&
  92.       BackStyle       =   0  'Transparent
  93.       Caption         =   "Version 1.0"
  94.       BeginProperty Font 
  95.          Name            =   "MS Sans Serif"
  96.          Size            =   8.25
  97.          Charset         =   0
  98.          Weight          =   700
  99.          Underline       =   0   'False
  100.          Italic          =   0   'False
  101.          Strikethrough   =   0   'False
  102.       EndProperty
  103.       ForeColor       =   &H80000008&
  104.       Height          =   195
  105.       Left            =   1320
  106.       TabIndex        =   0
  107.       Top             =   720
  108.       Width           =   975
  109.    End
  110.    Begin VB.Line Line1 
  111.       X1              =   1320
  112.       X2              =   3720
  113.       Y1              =   480
  114.       Y2              =   480
  115.    End
  116. Attribute VB_Name = "frmAbout"
  117. Attribute VB_GlobalNameSpace = False
  118. Attribute VB_Creatable = False
  119. Attribute VB_PredeclaredId = True
  120. Attribute VB_Exposed = False
  121. Private Sub Form_Load()
  122.   '//Set version text
  123.   lblVersion = "Version " & App.Major & "." & App.Minor & App.Revision
  124. End Sub
  125. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  126.   '//User pressed the escape key
  127.   If KeyCode = vbKeyEscape Then Unload Me
  128. End Sub
  129. Private Sub imgOK_Click()
  130.   '//Unload Form
  131.   Unload Me
  132. End Sub
  133. Private Sub imgOK_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  134.   '//Change picture on mousedown
  135.   imgOK.Picture = frmMain.ImageList1.ListImages(4).Picture
  136. End Sub
  137. Private Sub imgOK_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  138.   '//Reset picture on mouseup
  139.   imgOK.Picture = frmMain.ImageList1.ListImages(3).Picture
  140. End Sub
  141. Private Sub lblWebsite_Click()
  142.   '//Website is not valid, waiting on domain number changes...sorry!
  143.   '//You can email for now if you'd like:  sharmon@microtechcomputers.com
  144.   '//Goto our website
  145.   ShellExecute 0, "Open", "http://www.vsoftusa.com", "", "", vbNormalFocus
  146.   '//Unload form
  147.   Unload Me
  148. End Sub
  149.